Last update: 2022-02-09 … Source: India fuel dashboard - github
valueBox(petrol_latest$Delhi,icon = "fa-gas-pump")
95.41
valueBox(diesel_latest$Delhi,icon = "fa-gas-pump",color = "success")
86.67
Petrol$Date <- as.Date(Petrol$Date)
Pd <- ggplot(Petrol, aes(x = Date, y = Delhi)) + # Draw ggplot2 plot
geom_area( fill="#69b3a2", alpha=0.4) +
geom_line(color="#69b3a2", size=2) +
ylab("Price")+
ggtitle("Surging Petrol price in Delhi")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Pd
Diesel$Date <- as.Date(Diesel$Date)
Dd <- ggplot(Diesel, aes(x = Date, y = Delhi)) + # Draw ggplot2 plot
geom_area( fill="#FFA500", alpha=0.4) +
geom_line(color="#FFA500", size=2) +
ylab("Price")+
ggtitle("Surging Diesel price in Delhi")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Dd
valueBox(petrol_latest$Mumbai,icon = "fa-gas-pump")
109.98
valueBox(diesel_latest$Mumbai,icon = "fa-gas-pump",color = "success")
94.14
Petrol$Date <- as.Date(Petrol$Date)
Mp <- ggplot(Petrol, aes(x = Date, y = Mumbai)) + # Draw ggplot2 plot
geom_area( fill="#69b3a2", alpha=0.4) +
geom_line(color="#69b3a2", size=2) +
ylab("Price")+
ggtitle("Surging Petrol price in Mumbai")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Mp
Diesel$Date <- as.Date(Diesel$Date)
Md <- ggplot(Diesel, aes(x = Date, y = Mumbai)) + # Draw ggplot2 plot
geom_area( fill="#FFA500", alpha=0.4) +
geom_line(color="#FFA500", size=2) +
ylab("Price")+
ggtitle("Surging Diesel price in Mumbai")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Md
valueBox(petrol_latest$Chennai,icon = "fa-gas-pump")
101.4
valueBox(diesel_latest$Chennai,icon = "fa-gas-pump",color = "success")
91.43
Petrol$Date <- as.Date(Petrol$Date)
Cp <- ggplot(Petrol, aes(x = Date, y = Chennai)) + # Draw ggplot2 plot
geom_area( fill="#69b3a2", alpha=0.4) +
geom_line(color="#69b3a2", size=2) +
ylab("Price")+
ggtitle("Surging Petrol price in Chennai")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Cp
Diesel$Date <- as.Date(Diesel$Date)
Cd <- ggplot(Diesel, aes(x = Date, y = Chennai)) + # Draw ggplot2 plot
geom_area( fill="#FFA500", alpha=0.4) +
geom_line(color="#FFA500", size=2) +
ylab("Price")+
ggtitle("Surging Diesel price in Chennai")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Cd
valueBox(petrol_latest$Kolkata,icon = "fa-gas-pump")
104.67
valueBox(diesel_latest$Kolkata,icon = "fa-gas-pump",color = "success")
89.79
Petrol$Date <- as.Date(Petrol$Date)
Kp <- ggplot(Petrol, aes(x = Date, y = Kolkata)) + # Draw ggplot2 plot
geom_area( fill="#69b3a2", alpha=0.4) +
geom_line(color="#69b3a2", size=2) +
ylab("Price")+
ggtitle("Surging Petrol price in Kolkata")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Kp
Diesel$Date <- as.Date(Diesel$Date)
Kd <- ggplot(Diesel, aes(x = Date, y = Kolkata)) + # Draw ggplot2 plot
geom_area( fill="#FFA500", alpha=0.4) +
geom_line(color="#FFA500", size=2) +
ylab("Price")+
ggtitle("Surging Diesel price in Kolkata")+
scale_x_date(date_labels = "%Y-%m")+
theme_minimal()
Kd